-
<%
Set Conn = Server.CreateObject("ADODB.Connection")
StrConn ="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Projetos\Ministerio Colheita\Site\testes\colheita.mdb;Uid=Admin;Pwd=;"
Conn.Open StrConn
'Response.Write StrConn
'Response.end
codigo = Request.QueryString("CODIGO")
SQL = "SELECT * FROM NOTICIAS WHERE CODIGO="&codigo&""
SET RECSET = CONN.EXECUTE(SQL)
Response.Write("
") Response.Write RECSET("chamada") Response.Write("
") Response.Write("") Response.Write RECSET("noticia") RECSET.CLOSE SET RECSET=NOTHING CONN.CLOSE SET CONN= NOTHING %>
